10 REM  WORD TEST
20 POKE53280,0:POKE53281,0:PRINTCHR$(5)
30 GOSUB 10000
50 REM SET UP MATRIX, B MATRIX FOR ERRORS IN RESPONSES
60 DIM A$(100,2):DIM B(100)
70 DV=RND(-TI): REM ESTABLISH RANDOM
100 R=0:  REM MENU
110 PRINT"[147]ENTER THE OPTION YOU PREFER (BY NUMBER)"
120 PRINT"1.  ENTER NEW WORDS":PRINT"2.  REVIEW EXISTING WORDS (IN ORDER)"
130 PRINT"3.  RANDOM REVIEW":PRINT"4.  TAKE TEST":PRINT"5.  SAVE VOCABULARY"
140 PRINT"6.  RETRIEVE VOCABULARY":PRINT"7.  EDIT LIST":PRINT"8.  STOP"
150 INPUT R:IF R<1 OR R>8 THEN GOTO 150
160 ON R GOTO 1000,2000,3000,4000,5000,6000,7000,8000
1000 REM NEW WORDS TO LIST
1010 PRINT"[147]ADDING NEW WORDS TO LIST"
1020 FORX=1 TO 20
1030 INPUT "ENTER WORD";A$(X,1)
1040 IF A$(X,1)=""THENLIMIT=X-1:GOTO 100
1050 INPUT "TRANSLATION";A$(X,2)
1060 NEXT
1070 GOTO 100
2000 REM REVIEW IN ORDER
2010 PRINT "[147] REVIEW OF WORDS IN ORDER"
2020 FORX=1 TO LIMIT
2030 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
2040 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 2070
2050 PRINT "MY ANSWER IS ";A$(X,2)
2060 FOR T=1TO 2000:NEXT
2070 NEXT X
2080 GOTO 100
3000 REM RANDOM WORDS
3010 PRINT "[147] RANDOM REVIEW OF WORDS  "
3020 FORC=1TO20
3030 X = INT (RND(1)*(LIMIT))+1
3040 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
3050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 3080
3060 PRINT "MY ANSWER IS ";A$(X,2)
3070 FOR T=1TO 2000:NEXT
3080 NEXT C
3090 GOTO 100
4000 REM TEST
4010 PRINT "[147] TEST OF WORD MATCHING ":FOR T=1TO4000:NEXT
4020 E=0:FOR C=1TO20
4030 X = INT (RND(1)*(LIMIT))+1
4040 PRINT "[147]WHAT IS THE TRANSLATION FOR ";A$(X,1)
4050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 4080
4060 PRINT"MY ANSWER IS DIFFERENT";:E=E+1:B(X)=B(X)+1
4070 FOR T=1TO 2000:NEXTT
4080 POKE 53280,1:POKE53280,0:NEXT C
4090 PRINT "YOU MADE ";E;" ERRORS."
4100 FOR T=1 TO 3500:NEXT T
4110 PRINT"TO REVIEW ERRORS, PRESS THE 'F 1' KEY.  PRESS ANY OTHER KEY TO ";
4120 PRINT"RETURN TO THE MAIN PROGRAM"
4130 GET R$:IF R$=""GOTO 4130
4140 IF R$<>"[133]" GOTO 100
4150 PRINT "[147]REVIEW ERRORS"
4160 FOR X=1TO100:IF B(X)<1THEN NEXT X
4170 PRINT A$(X,1);"  IS THE SAME AS [160]";A$(X,2):FOR T=1TO4000:NEXT T
4210 IF X=100 GOTO 100: NEXT X
4220 GOTO 100
5000 REM SAVE FILE OF WORDS
5010 INPUT "NAME OF FILE ";I$
5020 OPEN 1,8,2,"0:" + I$+ ",S,W"
5025 PRINT#1,LIMIT,CHR$(13):REM STORES #OF ITEMS AS FIRST ELEMENT IN FILE
5030 FOR X=1 TO LIMIT
5040 PRINT#1,A$(X,1);CHR$(13);A$(X,2);CHR$(13)
5050 NEXT X
5090 CLOSE 1
5100 PRINT "FILE ";I$;" SAVED"
5110 FOR X=1TO3000:NEXT
5120 GOTO 100
6000 REM RETRIEVE A FILE OF WORDS
6005 I$="":A$="":REM TO ZERO OUT FROM PREVIOUS USES
6010 INPUT "NAME OF FILE ";I$
6015 IF I$=""THEN GOTO 6010
6020 OPEN 1,8,2,I$:REM OPENS FILE BY NAME
6030 INPUT#1,LNGTH:REM RETRIEVE FILE LENGTH
6040 FOR X=1 TO LNGTH
6050 INPUT#1,A$((X+LIMIT),1)
6060 INPUT#1,A$((X+LIMIT),2)
6070 NEXT
6080 CLOSE 1:LIMIT=LIMIT+LNGTH
6090 GOTO 100
7000 REM TO EDIT A FILE IN MEMORY
7100 FOR X=1 TO LIMIT
7110 PRINT "ITEM 1    ITEM 2"
7120 PRINT A$(X,1),A$(X,2)
7130 PRINT "ARE THESE CORRECT (Y OR N)?
7140 [133] R$:[139] R$[178]"Y" [167] 7180
7150 [139] R$[179][177]"N" [167] [137] 7120
7160 [133] "ENTER CORRECTED ITEM 1";C$:A$(X,1)[178]C$
7170 [133] "ENTER CORRECTED ITEM 2";C$:A$(X,2)[178]C$
7180 [130] X
7190 [137] 100
8000 [160] 1: [144]
9999 [159]15,8,15:[132]15,A$,B$,C$,D$:[153]A$,B$,C$,D$:[160] 15,8,15:[144]
10000 [143] INSTRUCTIONS
10010 [153]"THIS PROGRAM LETS YOU CREATE FILES OF   'PAIRS' OF WORDS OR ";
10015 [153] "PHRASES ";
10020 [153]"AND REVIEWS OR TESTS YOU ON YOUR ABILITY TO MATCH UPONE WITH ";
10030 [153]"THE OTHER. THE PROGRAM IS MENU-DRIVEN, AND NEEDS FEW DIRECTIONS."
10040 [153]"A FEW THINGS ARE NOT SELF EXPLANATORY --THERE IS A MAXIMUM LIMIT";
10050 [153]" OF 20 'PAIRS'  PER FILE; TO MAKE A FILE SMALLER YOU    NEED ";
10060 [153]"ONLY 'RETURN' WHEN THE PROGRAM ASKSFOR THE FIRST ITEM IN A 'PAIR'."
10070 [153]"TO PRACTICE WITH MORE THAN 20 WORDS, YOUCAN RETREIVE MORE THAN ";
10080 [153]"ONE FILE AT A    TIME -- THE PROGRAM CAN TAKE UP TO 100  'PAIRS' ";
10090 [153]"AND BY MODIFYING LINE 60 IT CAN BE MADE TO ACCEPT MORE."
10100 [153]"THE PROGRAM WILL BEGIN WHEN YOU PRESS THE ANY KEY"
10110 [161] R$:[139]R$[178]""[167]10110
10120 [142]